object PurchaseQuery: TPurchaseQuery Left = 200 Top = 108 BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'Purchase Calling Time' ClientHeight = 170 ClientWidth = 314 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object SelectLabel: TLabel Left = 16 Top = 16 Width = 68 Height = 13 Caption = 'Select One:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Panel1: TPanel Left = 8 Top = 48 Width = 297 Height = 73 BevelOuter = bvLowered TabOrder = 0 object UseForm: TRadioButton Left = 16 Top = 14 Width = 273 Height = 17 Caption = 'Recharge Credit Card on File' Checked = True TabOrder = 0 TabStop = True end object UseWeb: TRadioButton Left = 16 Top = 42 Width = 273 Height = 17 Caption = 'Use WEB Page' TabOrder = 1 end end object OkBtn: TButton Left = 63 Top = 136 Width = 75 Height = 25 Caption = 'OK' ModalResult = 1 TabOrder = 1 end object CancelBtn: TButton Left = 175 Top = 136 Width = 75 Height = 25 Caption = 'Cancel' ModalResult = 2 TabOrder = 2 end end